#!/usr/bin/wish -f

# set APPMAPDIR $env(HOME)/bits/tkdraw

# set GREYMAPDIR $env(HOME)/bits/grey

# lappend auto_path $env(HOME)/tcl/lib

set APPMAPDIR /home/kkzhang/tmp/ttkdraw1.1-beta/kdraw
set GREYMAPDIR /home/kkzhang/tmp/ttkdraw1.1-beta/grey
lappend auto_path /home/kkzhang/tmp/ttkdraw1.1-beta/lib

set APPDIR /home/kkzhang/tmp/ttkdraw1.1-beta/lib

#  The above lines may require changes, see the included README
#  MAKE NO CHANGES BELOW THIS LINE

#Things To Do:
#
#manual by topic, or from a "how do I" point of view
#  (e.g. grouping, cut and paste, colors, objects)
#
#Better interface for nailing down
#  is it item under cursor, or current item???
#  to confusing to use both
#  see below, about differentiation between current and selected
#
#shared clipboard
# clipboard append -type ttkdraw "canvas command string"
# selection get -selection CLIPBOARD -type ttkdraw
#
#use bindtags to improve binding handling
#
#improve options window
#  only show relevant options for selected item  --DONE
#  font options  --DONE
#  image options
#
#better differentiation between current and selected
#  the following operate on current, but unselected, items:
#    finish_addpoint		menu only
#    finish_deletepoint		menu only
#    selectungroup		kbd only
#    unnail                     kbd only
#    togglenail                 kbd only
#would a menu help?  control-rightbutton -> unnail, nail, ungroup, info
#and add/del point options would appear only if appropriate?
#could also have options changing via menu?
#
#tcl/tk command window
#
#setting of default options for each type
#undos (of lots of things)
#  add an object                 CREATE command to make object
#  delete an object              DELETE command to make object
#  move an object                COORD object oldcoordlist newcoordlist
#  move an object's point        COORD object oldcoordlist newcoordlist
#  scale an object               COORD object oldcoordlist newcoordlist
#  resize an object              COORD object oldcoordlist newcoordlist
#  add a point                   COORD object oldcoordlist newcoordlist
#  delete a point                COORD object oldcoordlist newcoordlist
#  change some option            OPTION object oldopt oldval newopt newval
#  change an item's type         MORPH oldobj type opts newobj type opts
#  group some stuff              GROUP objectlist
#  ungroup some stuff            UNGROUP objectlist
#  change the stacking order     ORDER oldposition newposition
#  nail down                     NAIL object
#  pry up                        PRY object
#  undo would have to keep a translation table of ids for when things were
#  deleted and put back by an undo
#window scrolling, zooming
#oval-rectangle conversions
#sketch curve fitting
#interface lock-outs where appropriate (e.g. moving points while adding points
#  or using menus while adding an object or turning off reshape for groups)
#    (I think this is all done???)
#error messages (e.g. failure to add or delete a point)
#
#flip l/r, u/d, diagonal, arbitrary line?
#
#options window that dynamically hides/disables unneeded attributes
#more options for various things (arrow heads)
#options for text
#fonts
#rc file, to make easier to deal with different "installs" (majel vs. bedbugs)
#deal with gridlines on "Open" - set variables
#don't save control points???

option add *[tk appname]*HighlightThickness 0 90

#set APPDIR $env(HOME)/tcl
if [file exists ~/.tkdrawrc] { source ~/.tkdrawrc }

# source $APPDIR/color_widget
# source $APPDIR/color_palette
source $APPDIR/colorPaletteLib.tcl
source $APPDIR/completionLib.tcl
package require tomsCompletionLib
  namespace import ::tomsCompletionLib::*
package require tomsColorPaletteLib
  namespace import ::tomsColorPaletteLib::*




